10 input A
20 input B
30 C=Adiv B
40 D=RMmul 1000div B
50 print C, ".", D
:return ;run 